unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ComCtrls, ExtCtrls,
  Grids, DBGrids, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
  cxCheckBox, cxMemo, cxCurrencyEdit, cxSpinEdit, cxTimeEdit, cxCalc,
  cxMaskEdit, cxDropDownEdit, cxCalendar, cxLabel, cxDBLabel, ImgList,
  ToolWin, DBActns, ActnList, ufrLDParent;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    fr:TfrLDParent;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ufrLDGridCustom, ufrLDGridOra, ufrLDEditOra;

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
  TfrLDGridOra.create(self);
  TfrLDEditOra.Create(self)
end;

end.
